home *** CD-ROM | disk | FTP | other *** search
/ Programmer Power Tools / Programmer Power Tools.iso / pctech / pctj1188.arc / GETCRTCR.ASM next >
Assembly Source File  |  1988-09-06  |  1KB  |  38 lines
  1. ; Microsoft C: 
  2. ; 
  3. ;       unsigned char GetCRTCReg( n ); 
  4. ;               unsigned char n;        /* register number */ 
  5. ; 
  6.  
  7. _TEXT           SEGMENT byte public 'CODE' 
  8.                 ASSUME  cs:_TEXT 
  9.  
  10.                 PUBLIC  _GetCRTCReg 
  11. _GetCRTCReg     PROC    near 
  12.  
  13.                 push    bp 
  14.                 mov     bp,sp 
  15.  
  16.                 mov     ax,40h          ; get I/O port for CRTC index reg 
  17.                 mov     es,ax           ;  from ROM BIOS data area 
  18.                 mov     dx,es:[63h] 
  19.  
  20.                 mov     al,[bp+4]       ; AL = register number 
  21.                 cli                     ; clear interrupts 
  22.                 out     dx,al           ; write to CRTC index reg 
  23.                 jmp     $+2 
  24.  
  25.                 inc     dx              ; DX = I/O port for CRTC data reg 
  26.                 in      al,dx           ; AL = register value 
  27.                 sti                     ; enable interrupts 
  28.  
  29.                 xor     ah,ah           ; AX = return value 
  30.  
  31.                 pop     bp 
  32.                 ret 
  33.  
  34. _GetCRTCReg     ENDP 
  35.  
  36. _TEXT           ENDS 
  37.  
  38.